Namespace Email.Servicos
    Public Class AppGlobal

#Region "Ambiente"

        Public Shared ReadOnly Property Ambiente() As String
            Get
                Dim sName As String
                'sName = My.Resources.Ambiente
                sName = System.Configuration.ConfigurationManager.AppSettings("Ambiente")
                Return sName
            End Get
        End Property

        Public Shared ReadOnly Property ConnectionString() As String
            Get
                Dim sName As String
                'sName = My.Resources.conexao
                sName = System.Configuration.ConfigurationManager.AppSettings("conexao")
                Return sName
            End Get
        End Property

        Public Shared ReadOnly Property EmailErros() As String
            Get
                Dim sName As String
                'sName = My.Resources.EmailErros
                sName = System.Configuration.ConfigurationManager.AppSettings("EmailErros")
                Return sName
            End Get
        End Property

        Public Shared ReadOnly Property IntervaloDoRelogio() As String
            Get
                Dim sName As String
                'sName = My.Resources.IntervaloDoRelogio
                sName = System.Configuration.ConfigurationManager.AppSettings("IntervaloDoRelogio")
                Return sName
            End Get
        End Property

        Public Shared ReadOnly Property SeparadorEmails() As String
            Get
                Dim sName As String
                'sName = My.Resources.SeparadorEmails
                sName = System.Configuration.ConfigurationManager.AppSettings("SeparadorEmails")
                Return sName
            End Get
        End Property

        Public Shared ReadOnly Property SmtpConnectionTimeout() As String
            Get
                Dim sName As String
                'sName = My.Resources.SmtpConnectionTimeout
                sName = System.Configuration.ConfigurationManager.AppSettings("SmtpConnectionTimeout")
                Return sName
            End Get
        End Property

        Public Shared ReadOnly Property SmtpServer() As String
            Get
                Dim sName As String
                'sName = My.Resources.SmtpServer
                sName = System.Configuration.ConfigurationManager.AppSettings("SmtpServer")
                Return sName
            End Get
        End Property

        Public Shared ReadOnly Property SmtpServerPort() As String
            Get
                Dim sName As String
                sName = System.Configuration.ConfigurationManager.AppSettings("SmtpServerPort")
                Return sName
            End Get
        End Property

        Public Shared ReadOnly Property SmtpClientUserFromEmail() As String
            Get
                Dim sName As String
                sName = System.Configuration.ConfigurationManager.AppSettings("SmtpClientUserFromEmail")
                Return sName
            End Get
        End Property

        Public Shared ReadOnly Property SmtpClientUserFromNome() As String
            Get
                Dim sName As String
                sName = System.Configuration.ConfigurationManager.AppSettings("SmtpClientUserFromNome")
                Return sName
            End Get
        End Property

        Public Shared ReadOnly Property SmtpClientUserFromSenha() As String
            Get
                Dim sName As String
                sName = System.Configuration.ConfigurationManager.AppSettings("SmtpClientUserFromSenha")
                Return sName
            End Get
        End Property

#End Region

    End Class
End Namespace

